	
	
	
	foreach est in Motiveweight Motiveroofratioweight Motivation_2010IV Motivation_2015IV   Motivation_withsolar_peerhascont  Motivation_withsolar_peerhascont_event  {
	
	estimates use Analysis/`est'

	eststo m5 
	
	regsave, ci
	
	drop if strpos(var,"_Iquarter")>0
	drop if strpos(var,"has")>0
		
	gen eventtime = -3 if var =="event_before_new3"
	replace eventtime = -2 if var =="event_before_new2"
	replace eventtime = -1 if var =="event_before_new1"
	replace eventtime = 0 if var =="event_before_new0"
	replace eventtime = 1 if var =="event_after_new1"	
	replace eventtime = 2 if var =="event_after_new2"
	replace eventtime = 3 if var =="event_after_new3"
	
	
	
	
	
	
	
	
	
	coefplot (m5, keep(event_before_new3  event_before_new2  event_before_new1) mcolor(gs0) ciopts(lcolor(gs0)) msymbol(o)) ///
	  (m5, keep(event_before_new0 ) mcolor(gs0) ciopts(lcolor(gs0)) msymbol(o)) ///
	 (m5, keep(  event_after_new1 event_after_new2 event_after_new3 ) mcolor(gs0) ciopts(lcolor(gs0)) msymbol(o)), vertical ///
	 relocate(event_before_new3 = -3 event_before_new2 = -2 event_before_new1 = -1 event_before_new0 = 0 ///
	event_after_new1 =1  event_after_new2=2 event_after_new3=3 )   legend(off) yline(0) ///
		xtitle("Event time", size(large)) xscale(range(-3(1)3)) xlabel(-3(1)3, labsize(large))  xline(0, lcolor(gs10) lpattern(dash) lwidth(vthin)) yscale(range(-0.025 0.025)) ylabel(-0.02(0.01)0.02, labsize(large)) addplot(lfit coef eventtime, fcolor(gs0%20) lcolor(gs0%10))

		graph export Analysis/`est'_linear.png, replace
	
		graph export Analysis/`est'_linear.eps, replace

	}
	
	
	
	
	
	
	
	
	estimates use Analysis/Motivation_halfyearIV

	eststo m5 
	
	regsave, ci
	
	drop if strpos(var,"_Iquarter")>0
	drop if strpos(var,"has")>0
		
	gen eventtime = -2 if var =="event_before_new2"
	replace eventtime = -1 if var =="event_before_new1"
	replace eventtime = 0 if var =="event_before_new0"
	replace eventtime = 1 if var =="event_after_new1"	
	replace eventtime = 2 if var =="event_after_new2"
	
	
	
	
	
	coefplot (m5, keep(event_before_new2  event_before_new1) mcolor(gs0) ciopts(lcolor(gs0)) msymbol(o)) ///
	  (m5, keep(event_before_new0 ) mcolor(gs0) ciopts(lcolor(gs0)) msymbol(o)) ///
	 (m5, keep(  event_after_new1 event_after_new2 ) mcolor(gs0) ciopts(lcolor(gs0)) msymbol(o)), vertical ///
	 relocate(event_before_new2 = -2 event_before_new1 = -1 event_before_new0 = 0 ///
	event_after_new1 =1  event_after_new2=2 )   legend(off) yline(0) ///
		xtitle("Event time", size(large)) xlabel(-2(1)2 , labsize(large))  xline(0, lcolor(gs10) lpattern(dash) lwidth(vthin)) yscale(range(-0.025 0.025)) ylabel(-0.02(0.01)0.02, labsize(large)) addplot(lfit coef eventtime, fcolor(gs0%20) lcolor(gs0%10))


		graph export Analysis/Motivation_halfyearIV_linear.png, replace
		graph export Analysis/Motivation_halfyearIV_linear.eps, replace

	
	
	
	
	
	
	
	
	
	
	estimates use Analysis/Motivation_yearIV

	eststo m5 
	
	regsave, ci
	
	drop if strpos(var,"_Iquarter")>0
	drop if strpos(var,"has")>0
		
			
	gen eventtime = -4 if var =="event_before_new4"
	replace eventtime =-3 if var =="event_before_new3"
	replace eventtime = -2 if var =="event_before_new2"
	replace eventtime = -1 if var =="event_before_new1"
	replace eventtime = 0 if var =="event_before_new0"
	replace eventtime = 1 if var =="event_after_new1"	
	replace eventtime = 2 if var =="event_after_new2"
	replace eventtime = 3 if var =="event_after_new3"
	replace eventtime = 4 if var =="event_after_new4"	
	
	
	
	
	
	coefplot (m5, keep( event_before_new4 event_before_new3  event_before_new2  event_before_new1) mcolor(gs0) ciopts(lcolor(gs0)) msymbol(o)) ///
	  (m5, keep(event_before_new0 ) mcolor(gs0) ciopts(lcolor(gs0)) msymbol(o)) ///
	 (m5, keep(  event_after_new1 event_after_new2 event_after_new3 event_after_new4) mcolor(gs0) ciopts(lcolor(gs0)) msymbol(o)), vertical ///
	 relocate(event_before_new4= -4 event_before_new3 = -3 event_before_new2 = -2 event_before_new1 = -1 event_before_new0 = 0 ///
	event_after_new1 =1  event_after_new2=2 event_after_new3=3  event_after_new4=4)   legend(off) yline(0) ///
		xtitle("Event time", size(large)) xscale(range(-4(1)4)) xlabel(-4(1)4, labsize(large))  xline(0, lcolor(gs10) lpattern(dash) lwidth(vthin)) yscale(range(-0.025 0.025)) ylabel(-0.02(0.01)0.02, labsize(large)) addplot(lfit coef eventtime, fcolor(gs0%20) lcolor(gs0%10))
			
	
	
	
		graph export Analysis/Motivation_yearIV_linear.png, replace
		graph export Analysis/Motivation_yearIV_linear.eps, replace

	
	
	
	 
